home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / DiavoloBackup1,17.LHA / Install Diavolo < prev    next >
Encoding:
Text File  |  1994-05-29  |  7.6 KB  |  224 lines
  1. ; Install-Script für Diavolo-Backup
  2. ;
  3. ; © 1993/1994 Martin Korndörfer
  4. ;
  5. ; $VER:DiavoloInstall 1.17 (27-Mai-93)
  6. ;
  7. ; Version 1.17
  8. ;
  9. ;   - Versionsnummern angepasst
  10. ;   - Magic Menu entfernt. Anleitungstexte werden kopiert.
  11. ;   - Confirm für Expertenmodus eingebaut.
  12. ;   - NOICONPOS entfernt.
  13. ;
  14. ; Version 1.12:
  15. ;
  16. ;   - Versionsnummern angepasst
  17. ;
  18. ; Version 1.10:
  19. ;
  20. ;   - Text für XPK Installation geändert.
  21. ;
  22. ; Version 1.9:
  23. ;
  24. ;   - Die Katalog-Datei wird nun auch immer in locale:catalogs... gespeichert,
  25. ;     um Problemen aus dem Weg zu gehen, wenn Diavolo in ein anderes 
  26. ;     Verzeichnis kopiert wird.
  27. ;   - Alle System-Libraries werden nun nach sys:libs statt libs: kopiert.
  28. ;     Die Locale.library wird kopiert.
  29. ;   - Der Anwender hat die Möglichkeit die fehlenden xpkXXXX.libraries aus
  30. ;     dem XPK Paket ins libs: zu installieren.
  31. ;
  32. ; Version 1.8:
  33. ;
  34. ;   - Wenn das Assign "LOCALE:" nicht vorhanden ist, wird es auch nicht mehr
  35. ;     abgefragt (unter 2.04 erschient sonst ein "Please insert..." Requester)
  36. ;   - Die asl. und diskfont.library werden kopiert. Die Fonts werden ins
  37. ;     Diavolo Verzeichnis kopiert.
  38.  
  39.  
  40. (set @abort-button "Installation abbrechen")
  41.  
  42. (set @app-name "Diavolo Backup 1.17")
  43.  
  44. (set @language "deutsch")
  45.  
  46. (welcome "Willkommen zur Installation von Diavolo Backup 1.17!")
  47.  
  48. (set Ok 0)
  49.  
  50. (complete 0)
  51.  
  52. (set savedest @default-dest)
  53.  
  54. (set ToDo (askoptions (prompt "Bitte wählen Sie die gewünschte Operation:")
  55.                       (help @askoptions-help)
  56.                       (choices "Diavolo Backup installieren"
  57.                                "XPK-library installieren bzw. updaten"
  58.                                "XPK Anleitungen und restl. Packer installieren")
  59.                       (default $3))
  60. )
  61.  
  62. (if (<> (BITAND ToDo $1) 0)
  63.     ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Diavolo Backup installiert werden soll.")
  64.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin Diavolo Backup \
  65. installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  66. Installationsprogramm wird KEINE eigene Schublade für Diavolo Backup anlegen.\n\n" @askdir-help))
  67.                           (default (tackon savedest "Diavolo"))
  68.                           (newpath))
  69.      )
  70.  
  71.      (if (= (exists newdest) 0)
  72.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  73.                           (help @makedir-help)
  74.                           (infos))
  75.      )
  76.  
  77.      (set @default-dest newdest)
  78.  
  79.      (complete 5)
  80.  
  81.      (copyfiles (prompt "Kopiere Diavolo Backup...")
  82.                 (help (cat "Das Hauptprogramm und die Anleitungstexte von Diavolo werden auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  83.                 (source "Diavolo Backup:")
  84.                 (dest @default-dest)
  85.                 (pattern "(Diavolo|Handbuch-Ergänzungen|Probleme&Lösungen|Streamer-Anleitung|Texte_Drucken)")
  86.                 (infos))
  87.  
  88.      (makedir (tackon @default-dest "Tape Catalogs") (prompt ("Erstelle Verzeichnis 'Tape Catalogs'!" newdest))
  89.                       (help @makedir-help)
  90.                       (infos))
  91.      (complete 10)
  92.  
  93.      (copyfiles (prompt "Kopiere Fonts...")
  94.                 (help (cat "Zur Sicherheit werden die Fonts in das Diavolo Verzeichnis kopiert\n\n" @copyfiles-help))
  95.                 (source "Diavolo Backup:fonts")
  96.                 (dest (tackon @default-dest "fonts"))
  97.                 (fonts)
  98.                 (confirm)
  99.                 (all))
  100.  
  101.      (complete 15)
  102.  
  103.      (copyfiles (prompt "Kopiere Sprachdateien...")
  104.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  105.                 (source "Diavolo Backup:catalogs")
  106.                 (dest (tackon @default-dest "catalogs"))
  107.                 (all))
  108.  
  109.      (complete 18)
  110.  
  111.      (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
  112.          (copyfiles (prompt "Kopiere Sprachdateien...")
  113.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  114.                 (source "Diavolo Backup:catalogs")
  115.                 (dest "locale:catalogs")
  116.                 (all))
  117.      )
  118.      )
  119. )
  120.  
  121. (complete 20)
  122.  
  123.  
  124. (if (<> (BITAND ToDo $2) 0)
  125.     ((copylib (prompt "Installiere XPKmaster.library...")
  126.               (help @copylib-help)
  127.               (source "Diavolo Backup:libs/xpkmaster.library")
  128.               (dest "libs:")
  129.               (confirm)
  130.               (optional nofail askuser))
  131.  
  132.     (complete 35)
  133.  
  134.     (foreach "Diavolo Backup:libs/compressors" "xpk#?.library"
  135.       (copylib (prompt ("Installiere %s" @each-name))
  136.                (help @copylib-help)
  137.                (source (tackon "Diavolo Backup:libs/compressors" @each-name))
  138.                (dest "libs:compressors")
  139.                (confirm)
  140.                (optional nofail askuser))
  141.     )
  142.  
  143.     (complete 54)
  144.  
  145.     (copylib (prompt "Installiere asl.library...")
  146.              (help @copylib-help)
  147.              (source "Diavolo Backup:libs/asl.library")
  148.              (dest "sys:libs")
  149.              (confirm)
  150.              (optional nofial askuser))
  151.  
  152.     (complete 56)
  153.  
  154.     (copylib (prompt "Installiere diskfont.library...")
  155.              (help @copylib-help)
  156.              (source "Diavolo Backup:libs/diskfont.library")
  157.              (dest "sys:libs")
  158.              (confirm)
  159.              (optional nofial askuser))
  160.  
  161.     (complete 58)
  162.  
  163.     (copylib (prompt "Installiere locale.library...")
  164.              (help @copylib-help)
  165.              (source "Diavolo Backup:libs/locale.library")
  166.              (dest "sys:libs")
  167.              (confirm)
  168.              (optional nofial askuser))
  169.     )
  170. )
  171.  
  172. (complete 60)
  173.  
  174. (if (<> (BITAND ToDo $4) 0)
  175.     ((set newdest (askdir (prompt "Bitte wählen Sie, wo die Anleitungen für die XPK Packer installiert werden sollen.")
  176.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin die \
  177. Anleitungen für die XPK-Packer kopiert werden sollen.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  178. Installationsprogramm wird KEINE eigene Schublade für das XPK-Paket anlegen.\n\n" @askdir-help))
  179.                           (default (tackon savedest "XPK"))
  180.                           (newpath))
  181.      )
  182.  
  183.      (if (= (exists newdest) 0)
  184.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  185.                           (help @makedir-help)
  186.                           (infos))
  187.      )
  188.  
  189.      (working "XPK-Paket wird ausgepackt. Bitte ein Weilchen Geduld...")
  190.      (if (= (substr newdest (- (strlen newdest) 1) 1) ':')
  191.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s\"" newdest)))
  192.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s/\"" newdest)))
  193.      )
  194.  
  195.      (if (<> Err 0)
  196.          (message "Fehler beim Auspacken. Das XPK-Paket ist wahrscheinlich nur unvollständig installiert.")
  197.  
  198.          (if (askbool (prompt "Bisher wurden nur die wichtigsten XPK-Algorithmen installiert. Sollen die restlichen Packer ebenfalls installiert werden?")
  199.                       (help @askbool-help)
  200.                       (default 1))
  201.              ((set libsrc (tackon newdest "libs/compressors"))
  202.               (foreach libsrc "xpk#?.library"
  203.                 (copylib (prompt ("Installiere %s" @each-name))
  204.                          (help @copylib-help)
  205.                          (source (tackon libsrc @each-name))
  206.                          (dest "libs:compressors")
  207.                          (confirm)
  208.                          (optional nofail askuser))
  209.               )
  210.              )
  211.          )
  212.      )
  213.      (if (= (BITAND ToDo $1) 0)
  214.          ((set @default-dest newdest)
  215.           (set @app-name "XPK-Paket")
  216.          )
  217.      )
  218.     )
  219. )
  220.  
  221. (complete 100)
  222.  
  223. (exit)
  224.